Public Class frmPreview
    Private Sub lblClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblClose.Click
        tmrFade.Start()
        Me.Close()
    End Sub

    Private Sub tmrFade_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrFade.Tick
        If Me.Opacity < 80 Then
            Me.Opacity += 0.01
        Else : tmrFade.Stop()
        End If

    End Sub

    Private Sub frmPreview_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Opacity = 0
        tmrFade.Start()
    End Sub

    Private Sub lblLaunch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblLaunch.Click
        Me.Close()
        System.Diagnostics.Process.Start(webPreview.Url.ToString)
    End Sub
End Class